home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / FORUMS.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.8 KB  |  18 lines
  1. 10 POKE55,.:POKE56,160:CLR:DIMA$,B$,I,P:M$=CHR$(13)
  2. 15 D=08:P=PEEK(45)+256*PEEK(46)
  3. 20 P=P-1:IFPEEK(P)THEN20
  4. 25 P=P-2048:POKE155,PAND255:POKE156,P/256:SYSP-164
  5. 30 POKE53272,23:PRINT"[147][197]NTER GO WORD (LOWER CASE)."
  6. 35 PRINT"([208]RESS <[210][197][212][213][210][206]> TO EXIT.)"
  7. 40 SYS65487:B$=CHR$(PEEK(780)):IFB$<>M$THENA$=A$+B$:GOTO40
  8. 45 IFA$=" "THENPRINT:PRINT"[142]":END
  9. 50 IFMID$(A$,4,1)<>":"THENA$="CIS: "+A$:GOTO60
  10. 55 A$=LEFT$(A$,4)+" "+MID$(A$,5)
  11. 60 A$=LEFT$(A$,11)
  12. 65 PRINT"[147][207]NE MOMENT PLEASE..."
  13. 70 OPEN8,D,8,"FORUMS.LST":SYSP-139:CLOSE8:POKE53272,31
  14. 75 IFPEEK(2)THENPRINT"[147][206][207] [211][213][195][200] [198][207][210][213][205]"
  15. 80 A$="":PRINT"[208][210][197][211][211] ([210][197][212][213][210][206]>."
  16. 85 GETB$:IFB$=M$THEN30
  17. 90 GOTO85
  18.